Soluce

HCL Notes/Domino 8.5 Forum (includes Notes Traveler)

Subject:

Soluce

I found it with your help.
A huge thank you!

I add this code at the function :
If Len(boundary)=0 Then
boundary = StrRight(header,{boundary=})
End If

-->

Function GetBoundary (header As String) As String
Dim boundary As String

On Error GoTo erreur

boundary=StrRight(header, "boundary=""")

If Len(boundary)=0 Then
boundary = StrRight(header,”boundary=”,1)
boundary = StrLeft(boundary,Chr(13))
End If

If Len(boundary)=0 Then
boundary = StrRight(header,{boundary=})
End If

If (InStr(boundary, """") > 0) Then
boundary=StrLeft(boundary, """")
End If

If (Len(boundary) > 0) Then
boundary="--" & boundary
End If

GetBoundary=boundary

Exit Function

erreur:
MsgBox "Erreur (GetBoundary) : " & Error & " - ligne n° : " & erl
End

End Function

THANK YOU !!!

Feedback response number WEBB99XLWM created by ~Howard Minfooburoni on 07/25/2013